Option Explicit
Sub O_Sample014()
    Dim myRef1 As VBIDE.Reference
    Dim myRef2 As VBIDE.Reference
    Dim myStr  As String
    myStr = "C:\WINDOWS\SYSTEM32\FM20.DLL"        'XPt
    'myStr = "C:\WINDOWS\SYSTEM\FM20.DLL"        'wnѰ禡w
    With ThisWorkbook.VBProject
        For Each myRef1 In .References
            If StrConv(myRef1.FullPath, vbUpperCase) = myStr Then
                Set myRef2 = myRef1
                Exit For
            End If
        Next
        If myRef2 Is Nothing Then
            MsgBox "ҫw禡wwgSQ]wޥζذѷӡC"
            Exit Sub
        Else
            .References.Remove myRef2
        End If
    End With
End Sub

